home *** CD-ROM | disk | FTP | other *** search
/ Aminet 48 / Aminet 48 (2002)(GTI - Schatztruhe)[!][Apr 2002].iso / Aminet / text / edit / vim60src.lha / Vim / vim60 / src / testdir / test26.in < prev    next >
Encoding:
Text File  |  2000-11-22  |  739 b   |  44 lines
  1. Test for :execute, :while and :if
  2.  
  3. STARTTEST
  4. :so small.vim
  5. mt:let i = 0
  6. :while i < 12
  7. :  let i = i + 1
  8. :  if has("ebcdic")
  9. :    execute "normal o" . i . "\047"
  10. :  else
  11. :    execute "normal o" . i . "\033"
  12. :  endif
  13. :  if i % 2
  14. :    normal Ax
  15. :    if i == 9
  16. :      break
  17. :    endif
  18. :    if i == 5
  19. :      continue
  20. :    else
  21. :      let j = 9
  22. :      while j > 0
  23. :        if has("ebcdic")
  24. :          execute "normal" j . "a" . j . "\x27"
  25. :        else
  26. :          execute "normal" j . "a" . j . "\x1b"
  27. :        endif
  28. :        let j = j - 1
  29. :      endwhile
  30. :    endif
  31. :  endif
  32. :  if i == 9
  33. :    if has("ebcdic")
  34. :      execute "normal Az\047"
  35. :    else
  36. :      execute "normal Az\033"
  37. :    endif
  38. :  endif
  39. :endwhile
  40. :'t,$w! test.out
  41. :qa!
  42. ENDTEST
  43.  
  44.